with Ada.Text_Io; use Ada.Text_Io;
package body Wagons.Wc is

   function Contenance(Wc: Wagon_Wc) return Positive is
   begin
      return Contenance(Wagon(Wc));
   end Contenance;

   function Saisir return Wagon_Wc Is
      W: constant Wagon := Wagons.Saisir;
      Wc: Wagon_Wc(W.Model);
   begin
      Wagon(Wc) := W;
      return Wc;
   end Saisir;

   procedure Afficher( Wc:  Wagon_Wc) is
   begin
      Put_Line("WAGON BAR");
      Wagons.Afficher(Wagon(Wc));
   end Afficher;

end Wagons.Wc;
